home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / COMM / ICOM100A.ARJ / PCP-ON.SCR < prev    next >
Text File  |  1992-02-09  |  2KB  |  61 lines
  1. ;=| PC Pursuit Logon Script v1.00 |===========================================;
  2. ;                                                                             ;
  3. ; Before using this script you must enter your PC Pursuit User ID/Password    ;
  4. ; below where indicated with <--.  You must also set up Intellicomm for use   ;
  5. ; with PC Pursuit.  See "LONG DISTANCE SERVICES" in the manual for details.   ;
  6. ;                                                                             ;
  7. ;=============================================================================;
  8. SENDCR:
  9. delay 10              ;^M is automatically added after send, sendnc does not
  10. send "@D"             ;<-- first @ could also be changed to ^M (send "^MD")
  11. waitfor "TERMINAL=" 10 SENDCR
  12. sendnc "D1"
  13. SENDCR2:
  14. send ""
  15. waitfor "@" 10 SENDCR2
  16. sendnc "C D/"
  17. sendbif "G" "city"    ;send City (area code), as defined in the BIF
  18. sendnc "/24"          ;<-- or /3 for 300 baud, /12 for 1200 baud
  19. sendnc ","
  20. send "USERID"         ;<-- ENTER YOUR PC PURSUIT USER ID HERE (between the "")
  21.                       ;-------------------------------------------------------
  22. waitfor "PASSWORD ="
  23. send "PASSWORD"       ;<-- ENTER YOUR PC PURSUIT PASSWORD HERE (between the "")
  24.                       ;--------------------------------------------------------
  25.  
  26. when                  ;clear all whens
  27. when "BUSY"          DISCONNECT ;if/when get BUSY goto label DISCONNECT below
  28. when "NOT OPERATING" DISCONNECT
  29. when "NO CARRIER"    DISCONNECT
  30. waitfor "CONNECT" 45 DISCONNECT ;wait for CONNECT or goto DISCONNECT in 45 sec.
  31.  
  32. send "SET? 1:0,5:1,7:8,12:1"
  33. send "RST? 5:1,12:1"
  34. send "CONT"
  35. delay 10
  36.  
  37. send "ATZ^M"          ;reset/wake up remote MODEM
  38. waitfor "OK"
  39. sendnc "ATDT"
  40. sendbif "G" "phn1"      ;send the BBS phone #, as defined in the BIF
  41. send ""               ;add a CR, sendbif doesn't add one
  42.  
  43. when                  ;clear any previous whens
  44. when "BUSY" SITEBUSY  ;goto SITEBUSY: if get the message BUSY
  45. when "NO DIALTONE" SITEBUSY
  46. when "NO CARRIER" SITEBUSY
  47. waitfor "CONNECT" 45 SITEBUSY   ;wait 45 seconds then timeout and goto SITEBUSY
  48. exit                  ;exit with no errorcode tells Icom to logon BBS now
  49.  
  50. SITEBUSY:
  51. send "^M@"
  52. when
  53. when "@" "D"
  54. waitfor "DISCONNECTED" 10
  55.  
  56. DISCONNECT:
  57. delay 20
  58. hangup
  59. exit 1                ;exit with > 0 errorcode tells Icom to cancel BBS logon
  60.                       ; but to try again later
  61.